Precision Software Appli…tions Silver Collection 1/Precision Software Applications Silver Collection Volume One (PSM) (1993).iso/tutor/clipper.exe/DELOOP.PRG

Text File | 1985-07-02 | 3KB | 115 lines

set talk off
clear
Set Color To w+/
* Do ScrBoard
* PROCEDURE SCRBOARD
  clear
  @ 1,0 SAY "╔══════════════════════════════════════════════════════════════════════════════╗"
  @ 2,0 SAY "║"
  @ 2,79 SAY "║"
  @ 3,0 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"
  @ 4,0 SAY "┌──────────────────────────────────────────────────────────────────────────────┐"
  @ 5,0 SAY "│"
  @ 5,79 SAY "│"
  @ 6,0 SAY "│"
  @ 6,79 SAY "│"
  @ 7,0 SAY "│"
  @ 7,79 SAY "│"
  @ 8,0 SAY "│"
  @ 8,79 SAY "│"
  @ 9,0 SAY "│"
  @ 9,79 SAY "│"
  @ 10,0 SAY "│"
  @ 10,79 SAY "│"
  @ 11,0 SAY "│"
  @ 11,79 SAY "│"
  @ 12,0 SAY "│"
  @ 12,79 SAY "│"
  @ 13,0 SAY "│"
  @ 13,79 SAY "│"
  @ 14,0 SAY "│"
  @ 14,79 SAY "│"
  @ 15,0 SAY "│"
  @ 15,79 SAY "│"
  @ 16,0 SAY "│"
  @ 16,79 SAY "│"
  @ 17,0 SAY "│"
  @ 17,79 SAY "│"
  @ 18,0 SAY "│"
  @ 18,79 SAY "│"
  @ 19,0 SAY "├──────────────────────────────────────────────────────────────────────────────┤"
  @ 20,0 SAY "│"
  @ 20,79 SAY "│"
  @ 21,0 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
* RETURN
@ 4,45  SAY "┬"
@ 5,45  SAY "│"
@ 6,45  SAY "│"
@ 7,45  SAY "│"
@ 8,45  SAY "│"
@ 9,45  SAY "│"
@ 10,45 SAY "│"
@ 11,45 SAY "│"
@ 12,45 SAY "│"
@ 13,45 SAY "│"
@ 14,45 SAY "│"
@ 15,45 SAY "│"
@ 16,45 SAY "│"
@ 17,45 SAY "│"
@ 18,45 SAY "│"
@ 19,45 SAY "┴"
Set Color To +gr/
@ 2,10 Say '  d B A S E - I I I   .and.   C l i p p e r  ....  [1000 Loops]  '
@  4,7 Say ' The Code Used For Loop '
@  5,7 Say ' ~~~~~~~~~~~~~~~~~~~~~~ '
@  4,52 Say ' The Time Test Results '
@  5,52 Say ' ~~~~~~~~~~~~~~~~~~~~~ '
Set Color To g+/
@  6,2 Say "Do While mcount < 1000"
@  7,2 Say "  mcount2 = 1"
@  8,2 Say "  Do While mcount2 <= 100"
@  9,2 Say "    mcount2 = mcount2 + 1"
@ 10,2 Say "  Enddo"
@ 11,2 Say "  mcount  = mcount + 100"
@ 12,2 Say "  Seconds = ((Val(Substr(Time(),1,2))*360"
@ 13,2 Say "    0) + (Val(Substr(Time(),4,2))*60)+Val"
@ 14,2 Say "    (Substr(Time(),7,2))) - Start_Sec"
@ 15,2 Say "  @ (mcount/100)+8,48 Say Str(mcount,5) +"
@ 16,2 Say "    Space(3) + Time() + Space(2) + Str(Se"
@ 17,2 Say "    conds,3) + ' Seconds'"
@ 18,2 Say "Enddo [ 1000 Loops ]"
Set Color To bg+/
@ 12,43 Say Chr(17)+'╕'
@ 13,1 Say '╘═══'+Chr(16)
@ 13,43 Say Chr(17)+'╕'
@ 14,1 Say '╘═══'+Chr(16)
@ 15,43 Say Chr(17)+'╕'
@ 16,1 Say '╘═══'+Chr(16)
@ 16,43 Say Chr(17)+'╕'
@ 17,1 Say '╘═══'+Chr(16)
Set Color To br+*/
@ 20,25 Say 'Please Wait ... Looping '
Set Color To r+/
@ 6,48 Say 'Count   --Time--   Time Taken'
@ 7,48 Say '~~~~~   ~~~~~~~~   ~~~~~~~~~~'
Set Color To b+/
Start_Sec = (Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))
Store 0 To Seconds,Mcount
@ 8,48 Say '    0   ' + Time() + Space(2) + Str(Seconds,3) + ' Seconds'
Do While mcount < 1000
  mcount2 = 1
  Do While mcount2 <= 100
    mcount2 = mcount2 + 1
  Enddo
  mcount  = mcount + 100
  Seconds = ((Val(Substr(Time(),1,2))*3600) + (Val(Substr(Time(),4,2))*60) + Val(Substr(Time(),7,2))) - Start_Sec
  @ (mcount/100)+8,48 Say Str(mcount,5) + Space(3) + Time() + Space(2) + Str(Seconds,3) + ' Seconds'
Enddo [ 1000 Loops ]
Set Color To gr+/,w+/gr
@ 20,1 Say Space(78)
Resp = ' '
@ 20,10 Say 'Press ANYKEY for Main Menu ' Get Resp
Read
Clear Gets
Return